3.221 \(\int \frac{\sin ^2(c+d x)}{(a-b \sin ^4(c+d x))^2} \, dx\)
Optimal. Leaf size=219 \[ \frac{\left (2 \sqrt{a}-\sqrt{b}\right ) \tan ^{-1}\left (\frac{\sqrt{\sqrt{a}-\sqrt{b}} \tan (c+d x)}{\sqrt [4]{a}}\right )}{8 a^{5/4} \sqrt{b} d \left (\sqrt{a}-\sqrt{b}\right )^{3/2}}-\frac{\left (2 \sqrt{a}+\sqrt{b}\right ) \tan ^{-1}\left (\frac{\sqrt{\sqrt{a}+\sqrt{b}} \tan (c+d x)}{\sqrt [4]{a}}\right )}{8 a^{5/4} \sqrt{b} d \left (\sqrt{a}+\sqrt{b}\right )^{3/2}}-\frac{\tan (c+d x) \left ((a+b) \tan ^2(c+d x)+a\right )}{4 a d (a-b) \left ((a-b) \tan ^4(c+d x)+2 a \tan ^2(c+d x)+a\right )} \]
[Out]
((2*Sqrt[a] - Sqrt[b])*ArcTan[(Sqrt[Sqrt[a] - Sqrt[b]]*Tan[c + d*x])/a^(1/4)])/(8*a^(5/4)*(Sqrt[a] - Sqrt[b])^
(3/2)*Sqrt[b]*d) - ((2*Sqrt[a] + Sqrt[b])*ArcTan[(Sqrt[Sqrt[a] + Sqrt[b]]*Tan[c + d*x])/a^(1/4)])/(8*a^(5/4)*(
Sqrt[a] + Sqrt[b])^(3/2)*Sqrt[b]*d) - (Tan[c + d*x]*(a + (a + b)*Tan[c + d*x]^2))/(4*a*(a - b)*d*(a + 2*a*Tan[
c + d*x]^2 + (a - b)*Tan[c + d*x]^4))
________________________________________________________________________________________
Rubi [A] time = 0.29745, antiderivative size = 219, normalized size of antiderivative = 1.,
number of steps used = 5, number of rules used = 4, integrand size = 24, \(\frac{\text{number of rules}}{\text{integrand size}}\) = 0.167, Rules used =
{3217, 1333, 1166, 205} \[ \frac{\left (2 \sqrt{a}-\sqrt{b}\right ) \tan ^{-1}\left (\frac{\sqrt{\sqrt{a}-\sqrt{b}} \tan (c+d x)}{\sqrt [4]{a}}\right )}{8 a^{5/4} \sqrt{b} d \left (\sqrt{a}-\sqrt{b}\right )^{3/2}}-\frac{\left (2 \sqrt{a}+\sqrt{b}\right ) \tan ^{-1}\left (\frac{\sqrt{\sqrt{a}+\sqrt{b}} \tan (c+d x)}{\sqrt [4]{a}}\right )}{8 a^{5/4} \sqrt{b} d \left (\sqrt{a}+\sqrt{b}\right )^{3/2}}-\frac{\tan (c+d x) \left ((a+b) \tan ^2(c+d x)+a\right )}{4 a d (a-b) \left ((a-b) \tan ^4(c+d x)+2 a \tan ^2(c+d x)+a\right )} \]
Antiderivative was successfully verified.
[In]
Int[Sin[c + d*x]^2/(a - b*Sin[c + d*x]^4)^2,x]
[Out]
((2*Sqrt[a] - Sqrt[b])*ArcTan[(Sqrt[Sqrt[a] - Sqrt[b]]*Tan[c + d*x])/a^(1/4)])/(8*a^(5/4)*(Sqrt[a] - Sqrt[b])^
(3/2)*Sqrt[b]*d) - ((2*Sqrt[a] + Sqrt[b])*ArcTan[(Sqrt[Sqrt[a] + Sqrt[b]]*Tan[c + d*x])/a^(1/4)])/(8*a^(5/4)*(
Sqrt[a] + Sqrt[b])^(3/2)*Sqrt[b]*d) - (Tan[c + d*x]*(a + (a + b)*Tan[c + d*x]^2))/(4*a*(a - b)*d*(a + 2*a*Tan[
c + d*x]^2 + (a - b)*Tan[c + d*x]^4))
Rule 3217
Int[sin[(e_.) + (f_.)*(x_)]^(m_)*((a_) + (b_.)*sin[(e_.) + (f_.)*(x_)]^4)^(p_.), x_Symbol] :> With[{ff = FreeF
actors[Tan[e + f*x], x]}, Dist[ff^(m + 1)/f, Subst[Int[(x^m*(a + 2*a*ff^2*x^2 + (a + b)*ff^4*x^4)^p)/(1 + ff^2
*x^2)^(m/2 + 2*p + 1), x], x, Tan[e + f*x]/ff], x]] /; FreeQ[{a, b, e, f}, x] && IntegerQ[m/2] && IntegerQ[p]
Rule 1333
Int[(x_)^(m_)*((d_) + (e_.)*(x_)^2)^(q_)*((a_) + (b_.)*(x_)^2 + (c_.)*(x_)^4)^(p_), x_Symbol] :> With[{f = Coe
ff[PolynomialRemainder[x^m*(d + e*x^2)^q, a + b*x^2 + c*x^4, x], x, 0], g = Coeff[PolynomialRemainder[x^m*(d +
e*x^2)^q, a + b*x^2 + c*x^4, x], x, 2]}, Simp[(x*(a + b*x^2 + c*x^4)^(p + 1)*(a*b*g - f*(b^2 - 2*a*c) - c*(b*
f - 2*a*g)*x^2))/(2*a*(p + 1)*(b^2 - 4*a*c)), x] + Dist[1/(2*a*(p + 1)*(b^2 - 4*a*c)), Int[(a + b*x^2 + c*x^4)
^(p + 1)*Simp[ExpandToSum[2*a*(p + 1)*(b^2 - 4*a*c)*PolynomialQuotient[x^m*(d + e*x^2)^q, a + b*x^2 + c*x^4, x
] + b^2*f*(2*p + 3) - 2*a*c*f*(4*p + 5) - a*b*g + c*(4*p + 7)*(b*f - 2*a*g)*x^2, x], x], x], x]] /; FreeQ[{a,
b, c, d, e}, x] && NeQ[b^2 - 4*a*c, 0] && LtQ[p, -1] && IGtQ[q, 1] && IGtQ[m/2, 0]
Rule 1166
Int[((d_) + (e_.)*(x_)^2)/((a_) + (b_.)*(x_)^2 + (c_.)*(x_)^4), x_Symbol] :> With[{q = Rt[b^2 - 4*a*c, 2]}, Di
st[e/2 + (2*c*d - b*e)/(2*q), Int[1/(b/2 - q/2 + c*x^2), x], x] + Dist[e/2 - (2*c*d - b*e)/(2*q), Int[1/(b/2 +
q/2 + c*x^2), x], x]] /; FreeQ[{a, b, c, d, e}, x] && NeQ[b^2 - 4*a*c, 0] && NeQ[c*d^2 - a*e^2, 0] && PosQ[b^
2 - 4*a*c]
Rule 205
Int[((a_) + (b_.)*(x_)^2)^(-1), x_Symbol] :> Simp[(Rt[a/b, 2]*ArcTan[x/Rt[a/b, 2]])/a, x] /; FreeQ[{a, b}, x]
&& PosQ[a/b]
Rubi steps
\begin{align*} \int \frac{\sin ^2(c+d x)}{\left (a-b \sin ^4(c+d x)\right )^2} \, dx &=\frac{\operatorname{Subst}\left (\int \frac{x^2 \left (1+x^2\right )^2}{\left (a+2 a x^2+(a-b) x^4\right )^2} \, dx,x,\tan (c+d x)\right )}{d}\\ &=-\frac{\tan (c+d x) \left (a+(a+b) \tan ^2(c+d x)\right )}{4 a (a-b) d \left (a+2 a \tan ^2(c+d x)+(a-b) \tan ^4(c+d x)\right )}-\frac{\operatorname{Subst}\left (\int \frac{-\frac{2 a^2 b}{a-b}-\frac{2 a (3 a-b) b x^2}{a-b}}{a+2 a x^2+(a-b) x^4} \, dx,x,\tan (c+d x)\right )}{8 a^2 b d}\\ &=-\frac{\tan (c+d x) \left (a+(a+b) \tan ^2(c+d x)\right )}{4 a (a-b) d \left (a+2 a \tan ^2(c+d x)+(a-b) \tan ^4(c+d x)\right )}+\frac{\left (2 a+\sqrt{a} \sqrt{b}-b\right ) \operatorname{Subst}\left (\int \frac{1}{a+\sqrt{a} \sqrt{b}+(a-b) x^2} \, dx,x,\tan (c+d x)\right )}{8 a \left (\sqrt{a}-\sqrt{b}\right ) \sqrt{b} d}-\frac{\left (-\frac{a (3 a-b) b}{a-b}+\frac{-4 a^2 b+\frac{4 a^2 (3 a-b) b}{a-b}}{4 \sqrt{a} \sqrt{b}}\right ) \operatorname{Subst}\left (\int \frac{1}{a-\sqrt{a} \sqrt{b}+(a-b) x^2} \, dx,x,\tan (c+d x)\right )}{8 a^2 b d}\\ &=\frac{\left (2 \sqrt{a}-\sqrt{b}\right ) \tan ^{-1}\left (\frac{\sqrt{\sqrt{a}-\sqrt{b}} \tan (c+d x)}{\sqrt [4]{a}}\right )}{8 a^{5/4} \left (\sqrt{a}-\sqrt{b}\right )^{3/2} \sqrt{b} d}-\frac{\left (2 \sqrt{a}+\sqrt{b}\right ) \tan ^{-1}\left (\frac{\sqrt{\sqrt{a}+\sqrt{b}} \tan (c+d x)}{\sqrt [4]{a}}\right )}{8 a^{5/4} \left (\sqrt{a}+\sqrt{b}\right )^{3/2} \sqrt{b} d}-\frac{\tan (c+d x) \left (a+(a+b) \tan ^2(c+d x)\right )}{4 a (a-b) d \left (a+2 a \tan ^2(c+d x)+(a-b) \tan ^4(c+d x)\right )}\\ \end{align*}
Mathematica [A] time = 2.08881, size = 255, normalized size = 1.16 \[ \frac{-\frac{\sqrt{a} \left (-\sqrt{a} \sqrt{b}+2 a-b\right ) \tan ^{-1}\left (\frac{\left (\sqrt{a}+\sqrt{b}\right ) \tan (c+d x)}{\sqrt{\sqrt{a} \sqrt{b}+a}}\right )}{\sqrt{b} \sqrt{\sqrt{a} \sqrt{b}+a}}-\frac{4 \sqrt{a} \sin (2 (c+d x)) (2 a-b \cos (2 (c+d x))+b)}{8 a+4 b \cos (2 (c+d x))-b \cos (4 (c+d x))-3 b}-\frac{\sqrt{a} \left (\sqrt{a} \sqrt{b}+2 a-b\right ) \tanh ^{-1}\left (\frac{\left (\sqrt{a}-\sqrt{b}\right ) \tan (c+d x)}{\sqrt{\sqrt{a} \sqrt{b}-a}}\right )}{\sqrt{b} \sqrt{\sqrt{a} \sqrt{b}-a}}}{8 a^{3/2} d (a-b)} \]
Antiderivative was successfully verified.
[In]
Integrate[Sin[c + d*x]^2/(a - b*Sin[c + d*x]^4)^2,x]
[Out]
(-((Sqrt[a]*(2*a - Sqrt[a]*Sqrt[b] - b)*ArcTan[((Sqrt[a] + Sqrt[b])*Tan[c + d*x])/Sqrt[a + Sqrt[a]*Sqrt[b]]])/
(Sqrt[a + Sqrt[a]*Sqrt[b]]*Sqrt[b])) - (Sqrt[a]*(2*a + Sqrt[a]*Sqrt[b] - b)*ArcTanh[((Sqrt[a] - Sqrt[b])*Tan[c
+ d*x])/Sqrt[-a + Sqrt[a]*Sqrt[b]]])/(Sqrt[-a + Sqrt[a]*Sqrt[b]]*Sqrt[b]) - (4*Sqrt[a]*(2*a + b - b*Cos[2*(c
+ d*x)])*Sin[2*(c + d*x)])/(8*a - 3*b + 4*b*Cos[2*(c + d*x)] - b*Cos[4*(c + d*x)]))/(8*a^(3/2)*(a - b)*d)
________________________________________________________________________________________
Maple [B] time = 0.127, size = 534, normalized size = 2.4 \begin{align*} \text{result too large to display} \end{align*}
Verification of antiderivative is not currently implemented for this CAS.
[In]
int(sin(d*x+c)^2/(a-b*sin(d*x+c)^4)^2,x)
[Out]
-1/4/d/(tan(d*x+c)^4*a-tan(d*x+c)^4*b+2*a*tan(d*x+c)^2+a)/(a-b)*tan(d*x+c)^3-1/4/d/(tan(d*x+c)^4*a-tan(d*x+c)^
4*b+2*a*tan(d*x+c)^2+a)/(a-b)/a*tan(d*x+c)^3*b-1/4/d/(tan(d*x+c)^4*a-tan(d*x+c)^4*b+2*a*tan(d*x+c)^2+a)/(a-b)*
tan(d*x+c)+3/8/d/(a-b)/(((a*b)^(1/2)+a)*(a-b))^(1/2)*arctan((a-b)*tan(d*x+c)/(((a*b)^(1/2)+a)*(a-b))^(1/2))-1/
8/d/a/(a-b)/(((a*b)^(1/2)+a)*(a-b))^(1/2)*arctan((a-b)*tan(d*x+c)/(((a*b)^(1/2)+a)*(a-b))^(1/2))*b+1/4/d*a/(a*
b)^(1/2)/(a-b)/(((a*b)^(1/2)+a)*(a-b))^(1/2)*arctan((a-b)*tan(d*x+c)/(((a*b)^(1/2)+a)*(a-b))^(1/2))+3/8/d/(a-b
)/(((a*b)^(1/2)-a)*(a-b))^(1/2)*arctanh((-a+b)*tan(d*x+c)/(((a*b)^(1/2)-a)*(a-b))^(1/2))-1/8/d/a/(a-b)/(((a*b)
^(1/2)-a)*(a-b))^(1/2)*arctanh((-a+b)*tan(d*x+c)/(((a*b)^(1/2)-a)*(a-b))^(1/2))*b-1/4/d*a/(a*b)^(1/2)/(a-b)/((
(a*b)^(1/2)-a)*(a-b))^(1/2)*arctanh((-a+b)*tan(d*x+c)/(((a*b)^(1/2)-a)*(a-b))^(1/2))
________________________________________________________________________________________
Maxima [F] time = 0., size = 0, normalized size = 0. \begin{align*} \text{result too large to display} \end{align*}
Verification of antiderivative is not currently implemented for this CAS.
[In]
integrate(sin(d*x+c)^2/(a-b*sin(d*x+c)^4)^2,x, algorithm="maxima")
[Out]
1/2*(2*(16*a^2 + 2*a*b - 3*b^2)*cos(4*d*x + 4*c)*sin(2*d*x + 2*c) + ((2*a*b - b^2)*sin(6*d*x + 6*c) - (8*a*b -
3*b^2)*sin(4*d*x + 4*c) - (2*a*b + 3*b^2)*sin(2*d*x + 2*c))*cos(8*d*x + 8*c) + 2*((16*a^2 + 2*a*b - 3*b^2)*si
n(4*d*x + 4*c) + 4*(2*a*b + b^2)*sin(2*d*x + 2*c))*cos(6*d*x + 6*c) + 2*((a^2*b^2 - a*b^3)*d*cos(8*d*x + 8*c)^
2 + 16*(a^2*b^2 - a*b^3)*d*cos(6*d*x + 6*c)^2 + 4*(64*a^4 - 112*a^3*b + 57*a^2*b^2 - 9*a*b^3)*d*cos(4*d*x + 4*
c)^2 + 16*(a^2*b^2 - a*b^3)*d*cos(2*d*x + 2*c)^2 + (a^2*b^2 - a*b^3)*d*sin(8*d*x + 8*c)^2 + 16*(a^2*b^2 - a*b^
3)*d*sin(6*d*x + 6*c)^2 + 4*(64*a^4 - 112*a^3*b + 57*a^2*b^2 - 9*a*b^3)*d*sin(4*d*x + 4*c)^2 + 16*(8*a^3*b - 1
1*a^2*b^2 + 3*a*b^3)*d*sin(4*d*x + 4*c)*sin(2*d*x + 2*c) + 16*(a^2*b^2 - a*b^3)*d*sin(2*d*x + 2*c)^2 - 8*(a^2*
b^2 - a*b^3)*d*cos(2*d*x + 2*c) + (a^2*b^2 - a*b^3)*d - 2*(4*(a^2*b^2 - a*b^3)*d*cos(6*d*x + 6*c) + 2*(8*a^3*b
- 11*a^2*b^2 + 3*a*b^3)*d*cos(4*d*x + 4*c) + 4*(a^2*b^2 - a*b^3)*d*cos(2*d*x + 2*c) - (a^2*b^2 - a*b^3)*d)*co
s(8*d*x + 8*c) + 8*(2*(8*a^3*b - 11*a^2*b^2 + 3*a*b^3)*d*cos(4*d*x + 4*c) + 4*(a^2*b^2 - a*b^3)*d*cos(2*d*x +
2*c) - (a^2*b^2 - a*b^3)*d)*cos(6*d*x + 6*c) + 4*(4*(8*a^3*b - 11*a^2*b^2 + 3*a*b^3)*d*cos(2*d*x + 2*c) - (8*a
^3*b - 11*a^2*b^2 + 3*a*b^3)*d)*cos(4*d*x + 4*c) - 4*(2*(a^2*b^2 - a*b^3)*d*sin(6*d*x + 6*c) + (8*a^3*b - 11*a
^2*b^2 + 3*a*b^3)*d*sin(4*d*x + 4*c) + 2*(a^2*b^2 - a*b^3)*d*sin(2*d*x + 2*c))*sin(8*d*x + 8*c) + 16*((8*a^3*b
- 11*a^2*b^2 + 3*a*b^3)*d*sin(4*d*x + 4*c) + 2*(a^2*b^2 - a*b^3)*d*sin(2*d*x + 2*c))*sin(6*d*x + 6*c))*integr
ate(-(4*(2*a*b - b^2)*cos(6*d*x + 6*c)^2 - 4*(32*a^2 - 20*a*b + 3*b^2)*cos(4*d*x + 4*c)^2 + 4*(2*a*b - b^2)*co
s(2*d*x + 2*c)^2 + 4*(2*a*b - b^2)*sin(6*d*x + 6*c)^2 - 4*(32*a^2 - 20*a*b + 3*b^2)*sin(4*d*x + 4*c)^2 + 2*(16
*a^2 - 30*a*b + 7*b^2)*sin(4*d*x + 4*c)*sin(2*d*x + 2*c) + 4*(2*a*b - b^2)*sin(2*d*x + 2*c)^2 - ((2*a*b - b^2)
*cos(6*d*x + 6*c) - 2*(4*a*b - b^2)*cos(4*d*x + 4*c) + (2*a*b - b^2)*cos(2*d*x + 2*c))*cos(8*d*x + 8*c) - (2*a
*b - b^2 - 2*(16*a^2 - 30*a*b + 7*b^2)*cos(4*d*x + 4*c) - 8*(2*a*b - b^2)*cos(2*d*x + 2*c))*cos(6*d*x + 6*c) +
2*(4*a*b - b^2 + (16*a^2 - 30*a*b + 7*b^2)*cos(2*d*x + 2*c))*cos(4*d*x + 4*c) - (2*a*b - b^2)*cos(2*d*x + 2*c
) - ((2*a*b - b^2)*sin(6*d*x + 6*c) - 2*(4*a*b - b^2)*sin(4*d*x + 4*c) + (2*a*b - b^2)*sin(2*d*x + 2*c))*sin(8
*d*x + 8*c) + 2*((16*a^2 - 30*a*b + 7*b^2)*sin(4*d*x + 4*c) + 4*(2*a*b - b^2)*sin(2*d*x + 2*c))*sin(6*d*x + 6*
c))/(a^2*b^2 - a*b^3 + (a^2*b^2 - a*b^3)*cos(8*d*x + 8*c)^2 + 16*(a^2*b^2 - a*b^3)*cos(6*d*x + 6*c)^2 + 4*(64*
a^4 - 112*a^3*b + 57*a^2*b^2 - 9*a*b^3)*cos(4*d*x + 4*c)^2 + 16*(a^2*b^2 - a*b^3)*cos(2*d*x + 2*c)^2 + (a^2*b^
2 - a*b^3)*sin(8*d*x + 8*c)^2 + 16*(a^2*b^2 - a*b^3)*sin(6*d*x + 6*c)^2 + 4*(64*a^4 - 112*a^3*b + 57*a^2*b^2 -
9*a*b^3)*sin(4*d*x + 4*c)^2 + 16*(8*a^3*b - 11*a^2*b^2 + 3*a*b^3)*sin(4*d*x + 4*c)*sin(2*d*x + 2*c) + 16*(a^2
*b^2 - a*b^3)*sin(2*d*x + 2*c)^2 + 2*(a^2*b^2 - a*b^3 - 4*(a^2*b^2 - a*b^3)*cos(6*d*x + 6*c) - 2*(8*a^3*b - 11
*a^2*b^2 + 3*a*b^3)*cos(4*d*x + 4*c) - 4*(a^2*b^2 - a*b^3)*cos(2*d*x + 2*c))*cos(8*d*x + 8*c) - 8*(a^2*b^2 - a
*b^3 - 2*(8*a^3*b - 11*a^2*b^2 + 3*a*b^3)*cos(4*d*x + 4*c) - 4*(a^2*b^2 - a*b^3)*cos(2*d*x + 2*c))*cos(6*d*x +
6*c) - 4*(8*a^3*b - 11*a^2*b^2 + 3*a*b^3 - 4*(8*a^3*b - 11*a^2*b^2 + 3*a*b^3)*cos(2*d*x + 2*c))*cos(4*d*x + 4
*c) - 8*(a^2*b^2 - a*b^3)*cos(2*d*x + 2*c) - 4*(2*(a^2*b^2 - a*b^3)*sin(6*d*x + 6*c) + (8*a^3*b - 11*a^2*b^2 +
3*a*b^3)*sin(4*d*x + 4*c) + 2*(a^2*b^2 - a*b^3)*sin(2*d*x + 2*c))*sin(8*d*x + 8*c) + 16*((8*a^3*b - 11*a^2*b^
2 + 3*a*b^3)*sin(4*d*x + 4*c) + 2*(a^2*b^2 - a*b^3)*sin(2*d*x + 2*c))*sin(6*d*x + 6*c)), x) - (b^2 + (2*a*b -
b^2)*cos(6*d*x + 6*c) - (8*a*b - 3*b^2)*cos(4*d*x + 4*c) - (2*a*b + 3*b^2)*cos(2*d*x + 2*c))*sin(8*d*x + 8*c)
+ (2*a*b + 3*b^2 - 2*(16*a^2 + 2*a*b - 3*b^2)*cos(4*d*x + 4*c) - 8*(2*a*b + b^2)*cos(2*d*x + 2*c))*sin(6*d*x +
6*c) + (8*a*b - 3*b^2 - 2*(16*a^2 + 2*a*b - 3*b^2)*cos(2*d*x + 2*c))*sin(4*d*x + 4*c) - (2*a*b - b^2)*sin(2*d
*x + 2*c))/((a^2*b^2 - a*b^3)*d*cos(8*d*x + 8*c)^2 + 16*(a^2*b^2 - a*b^3)*d*cos(6*d*x + 6*c)^2 + 4*(64*a^4 - 1
12*a^3*b + 57*a^2*b^2 - 9*a*b^3)*d*cos(4*d*x + 4*c)^2 + 16*(a^2*b^2 - a*b^3)*d*cos(2*d*x + 2*c)^2 + (a^2*b^2 -
a*b^3)*d*sin(8*d*x + 8*c)^2 + 16*(a^2*b^2 - a*b^3)*d*sin(6*d*x + 6*c)^2 + 4*(64*a^4 - 112*a^3*b + 57*a^2*b^2
- 9*a*b^3)*d*sin(4*d*x + 4*c)^2 + 16*(8*a^3*b - 11*a^2*b^2 + 3*a*b^3)*d*sin(4*d*x + 4*c)*sin(2*d*x + 2*c) + 16
*(a^2*b^2 - a*b^3)*d*sin(2*d*x + 2*c)^2 - 8*(a^2*b^2 - a*b^3)*d*cos(2*d*x + 2*c) + (a^2*b^2 - a*b^3)*d - 2*(4*
(a^2*b^2 - a*b^3)*d*cos(6*d*x + 6*c) + 2*(8*a^3*b - 11*a^2*b^2 + 3*a*b^3)*d*cos(4*d*x + 4*c) + 4*(a^2*b^2 - a*
b^3)*d*cos(2*d*x + 2*c) - (a^2*b^2 - a*b^3)*d)*cos(8*d*x + 8*c) + 8*(2*(8*a^3*b - 11*a^2*b^2 + 3*a*b^3)*d*cos(
4*d*x + 4*c) + 4*(a^2*b^2 - a*b^3)*d*cos(2*d*x + 2*c) - (a^2*b^2 - a*b^3)*d)*cos(6*d*x + 6*c) + 4*(4*(8*a^3*b
- 11*a^2*b^2 + 3*a*b^3)*d*cos(2*d*x + 2*c) - (8*a^3*b - 11*a^2*b^2 + 3*a*b^3)*d)*cos(4*d*x + 4*c) - 4*(2*(a^2*
b^2 - a*b^3)*d*sin(6*d*x + 6*c) + (8*a^3*b - 11*a^2*b^2 + 3*a*b^3)*d*sin(4*d*x + 4*c) + 2*(a^2*b^2 - a*b^3)*d*
sin(2*d*x + 2*c))*sin(8*d*x + 8*c) + 16*((8*a^3*b - 11*a^2*b^2 + 3*a*b^3)*d*sin(4*d*x + 4*c) + 2*(a^2*b^2 - a*
b^3)*d*sin(2*d*x + 2*c))*sin(6*d*x + 6*c))
________________________________________________________________________________________
Fricas [B] time = 8.09228, size = 7386, normalized size = 33.73 \begin{align*} \text{result too large to display} \end{align*}
Verification of antiderivative is not currently implemented for this CAS.
[In]
integrate(sin(d*x+c)^2/(a-b*sin(d*x+c)^4)^2,x, algorithm="fricas")
[Out]
1/32*(((a^2*b - a*b^2)*d*cos(d*x + c)^4 - 2*(a^2*b - a*b^2)*d*cos(d*x + c)^2 - (a^3 - 2*a^2*b + a*b^2)*d)*sqrt
(-((a^5*b - 3*a^4*b^2 + 3*a^3*b^3 - a^2*b^4)*d^2*sqrt((64*a^4 - 80*a^3*b + 41*a^2*b^2 - 10*a*b^3 + b^4)/((a^11
*b - 6*a^10*b^2 + 15*a^9*b^3 - 20*a^8*b^4 + 15*a^7*b^5 - 6*a^6*b^6 + a^5*b^7)*d^4)) + 4*a^2 + a*b - b^2)/((a^5
*b - 3*a^4*b^2 + 3*a^3*b^3 - a^2*b^4)*d^2))*log(8*a^3 - 7*a^2*b + 9/4*a*b^2 - 1/4*b^3 - 1/4*(32*a^3 - 28*a^2*b
+ 9*a*b^2 - b^3)*cos(d*x + c)^2 + 1/2*((3*a^8*b - 10*a^7*b^2 + 12*a^6*b^3 - 6*a^5*b^4 + a^4*b^5)*d^3*sqrt((64
*a^4 - 80*a^3*b + 41*a^2*b^2 - 10*a*b^3 + b^4)/((a^11*b - 6*a^10*b^2 + 15*a^9*b^3 - 20*a^8*b^4 + 15*a^7*b^5 -
6*a^6*b^6 + a^5*b^7)*d^4))*cos(d*x + c)*sin(d*x + c) - 2*(8*a^5 - 5*a^4*b + a^3*b^2)*d*cos(d*x + c)*sin(d*x +
c))*sqrt(-((a^5*b - 3*a^4*b^2 + 3*a^3*b^3 - a^2*b^4)*d^2*sqrt((64*a^4 - 80*a^3*b + 41*a^2*b^2 - 10*a*b^3 + b^4
)/((a^11*b - 6*a^10*b^2 + 15*a^9*b^3 - 20*a^8*b^4 + 15*a^7*b^5 - 6*a^6*b^6 + a^5*b^7)*d^4)) + 4*a^2 + a*b - b^
2)/((a^5*b - 3*a^4*b^2 + 3*a^3*b^3 - a^2*b^4)*d^2)) + 1/4*(2*(4*a^7 - 13*a^6*b + 15*a^5*b^2 - 7*a^4*b^3 + a^3*
b^4)*d^2*cos(d*x + c)^2 - (4*a^7 - 13*a^6*b + 15*a^5*b^2 - 7*a^4*b^3 + a^3*b^4)*d^2)*sqrt((64*a^4 - 80*a^3*b +
41*a^2*b^2 - 10*a*b^3 + b^4)/((a^11*b - 6*a^10*b^2 + 15*a^9*b^3 - 20*a^8*b^4 + 15*a^7*b^5 - 6*a^6*b^6 + a^5*b
^7)*d^4))) - ((a^2*b - a*b^2)*d*cos(d*x + c)^4 - 2*(a^2*b - a*b^2)*d*cos(d*x + c)^2 - (a^3 - 2*a^2*b + a*b^2)*
d)*sqrt(-((a^5*b - 3*a^4*b^2 + 3*a^3*b^3 - a^2*b^4)*d^2*sqrt((64*a^4 - 80*a^3*b + 41*a^2*b^2 - 10*a*b^3 + b^4)
/((a^11*b - 6*a^10*b^2 + 15*a^9*b^3 - 20*a^8*b^4 + 15*a^7*b^5 - 6*a^6*b^6 + a^5*b^7)*d^4)) + 4*a^2 + a*b - b^2
)/((a^5*b - 3*a^4*b^2 + 3*a^3*b^3 - a^2*b^4)*d^2))*log(8*a^3 - 7*a^2*b + 9/4*a*b^2 - 1/4*b^3 - 1/4*(32*a^3 - 2
8*a^2*b + 9*a*b^2 - b^3)*cos(d*x + c)^2 - 1/2*((3*a^8*b - 10*a^7*b^2 + 12*a^6*b^3 - 6*a^5*b^4 + a^4*b^5)*d^3*s
qrt((64*a^4 - 80*a^3*b + 41*a^2*b^2 - 10*a*b^3 + b^4)/((a^11*b - 6*a^10*b^2 + 15*a^9*b^3 - 20*a^8*b^4 + 15*a^7
*b^5 - 6*a^6*b^6 + a^5*b^7)*d^4))*cos(d*x + c)*sin(d*x + c) - 2*(8*a^5 - 5*a^4*b + a^3*b^2)*d*cos(d*x + c)*sin
(d*x + c))*sqrt(-((a^5*b - 3*a^4*b^2 + 3*a^3*b^3 - a^2*b^4)*d^2*sqrt((64*a^4 - 80*a^3*b + 41*a^2*b^2 - 10*a*b^
3 + b^4)/((a^11*b - 6*a^10*b^2 + 15*a^9*b^3 - 20*a^8*b^4 + 15*a^7*b^5 - 6*a^6*b^6 + a^5*b^7)*d^4)) + 4*a^2 + a
*b - b^2)/((a^5*b - 3*a^4*b^2 + 3*a^3*b^3 - a^2*b^4)*d^2)) + 1/4*(2*(4*a^7 - 13*a^6*b + 15*a^5*b^2 - 7*a^4*b^3
+ a^3*b^4)*d^2*cos(d*x + c)^2 - (4*a^7 - 13*a^6*b + 15*a^5*b^2 - 7*a^4*b^3 + a^3*b^4)*d^2)*sqrt((64*a^4 - 80*
a^3*b + 41*a^2*b^2 - 10*a*b^3 + b^4)/((a^11*b - 6*a^10*b^2 + 15*a^9*b^3 - 20*a^8*b^4 + 15*a^7*b^5 - 6*a^6*b^6
+ a^5*b^7)*d^4))) + ((a^2*b - a*b^2)*d*cos(d*x + c)^4 - 2*(a^2*b - a*b^2)*d*cos(d*x + c)^2 - (a^3 - 2*a^2*b +
a*b^2)*d)*sqrt(((a^5*b - 3*a^4*b^2 + 3*a^3*b^3 - a^2*b^4)*d^2*sqrt((64*a^4 - 80*a^3*b + 41*a^2*b^2 - 10*a*b^3
+ b^4)/((a^11*b - 6*a^10*b^2 + 15*a^9*b^3 - 20*a^8*b^4 + 15*a^7*b^5 - 6*a^6*b^6 + a^5*b^7)*d^4)) - 4*a^2 - a*b
+ b^2)/((a^5*b - 3*a^4*b^2 + 3*a^3*b^3 - a^2*b^4)*d^2))*log(-8*a^3 + 7*a^2*b - 9/4*a*b^2 + 1/4*b^3 + 1/4*(32*
a^3 - 28*a^2*b + 9*a*b^2 - b^3)*cos(d*x + c)^2 + 1/2*((3*a^8*b - 10*a^7*b^2 + 12*a^6*b^3 - 6*a^5*b^4 + a^4*b^5
)*d^3*sqrt((64*a^4 - 80*a^3*b + 41*a^2*b^2 - 10*a*b^3 + b^4)/((a^11*b - 6*a^10*b^2 + 15*a^9*b^3 - 20*a^8*b^4 +
15*a^7*b^5 - 6*a^6*b^6 + a^5*b^7)*d^4))*cos(d*x + c)*sin(d*x + c) + 2*(8*a^5 - 5*a^4*b + a^3*b^2)*d*cos(d*x +
c)*sin(d*x + c))*sqrt(((a^5*b - 3*a^4*b^2 + 3*a^3*b^3 - a^2*b^4)*d^2*sqrt((64*a^4 - 80*a^3*b + 41*a^2*b^2 - 1
0*a*b^3 + b^4)/((a^11*b - 6*a^10*b^2 + 15*a^9*b^3 - 20*a^8*b^4 + 15*a^7*b^5 - 6*a^6*b^6 + a^5*b^7)*d^4)) - 4*a
^2 - a*b + b^2)/((a^5*b - 3*a^4*b^2 + 3*a^3*b^3 - a^2*b^4)*d^2)) + 1/4*(2*(4*a^7 - 13*a^6*b + 15*a^5*b^2 - 7*a
^4*b^3 + a^3*b^4)*d^2*cos(d*x + c)^2 - (4*a^7 - 13*a^6*b + 15*a^5*b^2 - 7*a^4*b^3 + a^3*b^4)*d^2)*sqrt((64*a^4
- 80*a^3*b + 41*a^2*b^2 - 10*a*b^3 + b^4)/((a^11*b - 6*a^10*b^2 + 15*a^9*b^3 - 20*a^8*b^4 + 15*a^7*b^5 - 6*a^
6*b^6 + a^5*b^7)*d^4))) - ((a^2*b - a*b^2)*d*cos(d*x + c)^4 - 2*(a^2*b - a*b^2)*d*cos(d*x + c)^2 - (a^3 - 2*a^
2*b + a*b^2)*d)*sqrt(((a^5*b - 3*a^4*b^2 + 3*a^3*b^3 - a^2*b^4)*d^2*sqrt((64*a^4 - 80*a^3*b + 41*a^2*b^2 - 10*
a*b^3 + b^4)/((a^11*b - 6*a^10*b^2 + 15*a^9*b^3 - 20*a^8*b^4 + 15*a^7*b^5 - 6*a^6*b^6 + a^5*b^7)*d^4)) - 4*a^2
- a*b + b^2)/((a^5*b - 3*a^4*b^2 + 3*a^3*b^3 - a^2*b^4)*d^2))*log(-8*a^3 + 7*a^2*b - 9/4*a*b^2 + 1/4*b^3 + 1/
4*(32*a^3 - 28*a^2*b + 9*a*b^2 - b^3)*cos(d*x + c)^2 - 1/2*((3*a^8*b - 10*a^7*b^2 + 12*a^6*b^3 - 6*a^5*b^4 + a
^4*b^5)*d^3*sqrt((64*a^4 - 80*a^3*b + 41*a^2*b^2 - 10*a*b^3 + b^4)/((a^11*b - 6*a^10*b^2 + 15*a^9*b^3 - 20*a^8
*b^4 + 15*a^7*b^5 - 6*a^6*b^6 + a^5*b^7)*d^4))*cos(d*x + c)*sin(d*x + c) + 2*(8*a^5 - 5*a^4*b + a^3*b^2)*d*cos
(d*x + c)*sin(d*x + c))*sqrt(((a^5*b - 3*a^4*b^2 + 3*a^3*b^3 - a^2*b^4)*d^2*sqrt((64*a^4 - 80*a^3*b + 41*a^2*b
^2 - 10*a*b^3 + b^4)/((a^11*b - 6*a^10*b^2 + 15*a^9*b^3 - 20*a^8*b^4 + 15*a^7*b^5 - 6*a^6*b^6 + a^5*b^7)*d^4))
- 4*a^2 - a*b + b^2)/((a^5*b - 3*a^4*b^2 + 3*a^3*b^3 - a^2*b^4)*d^2)) + 1/4*(2*(4*a^7 - 13*a^6*b + 15*a^5*b^2
- 7*a^4*b^3 + a^3*b^4)*d^2*cos(d*x + c)^2 - (4*a^7 - 13*a^6*b + 15*a^5*b^2 - 7*a^4*b^3 + a^3*b^4)*d^2)*sqrt((
64*a^4 - 80*a^3*b + 41*a^2*b^2 - 10*a*b^3 + b^4)/((a^11*b - 6*a^10*b^2 + 15*a^9*b^3 - 20*a^8*b^4 + 15*a^7*b^5
- 6*a^6*b^6 + a^5*b^7)*d^4))) - 8*(b*cos(d*x + c)^3 - (a + b)*cos(d*x + c))*sin(d*x + c))/((a^2*b - a*b^2)*d*c
os(d*x + c)^4 - 2*(a^2*b - a*b^2)*d*cos(d*x + c)^2 - (a^3 - 2*a^2*b + a*b^2)*d)
________________________________________________________________________________________
Sympy [F(-1)] time = 0., size = 0, normalized size = 0. \begin{align*} \text{Timed out} \end{align*}
Verification of antiderivative is not currently implemented for this CAS.
[In]
integrate(sin(d*x+c)**2/(a-b*sin(d*x+c)**4)**2,x)
[Out]
Timed out
________________________________________________________________________________________
Giac [F(-2)] time = 0., size = 0, normalized size = 0. \begin{align*} \text{Exception raised: NotImplementedError} \end{align*}
Verification of antiderivative is not currently implemented for this CAS.
[In]
integrate(sin(d*x+c)^2/(a-b*sin(d*x+c)^4)^2,x, algorithm="giac")
[Out]
Exception raised: NotImplementedError